home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Sample Code / 7Edit 3.1 / Sources / SVAEGetDataSize.c < prev    next >
Encoding:
Text File  |  1995-11-20  |  3.8 KB  |  154 lines  |  [TEXT/CWIE]
  1. // SVAEGetDataSize.c
  2. //
  3. // 7Edit 3.1d1. Original version by Jon Lansdell and Nigel Humphreys.
  4. // 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1995, all rights reserved.
  6.  
  7. #include "SVAEGetDataSize.h"
  8.  
  9. #include "SVEditAEUtils.h"
  10.  
  11. // -----------------------------------------------------------------------
  12. //        Name:             DoGetDataSize
  13. //        Purpose:        Handles the GetDataSize AppleEvent.
  14. // -----------------------------------------------------------------------
  15.  
  16. pascal OSErr    DoGetDataSize(const AppleEvent    *theAppleEvent,
  17.                                     AppleEvent    *reply,
  18.                                     long        handlerRefCon)
  19. { 
  20. #pragma unused (handlerRefCon)
  21.  
  22.     AEDesc        directObj = {typeNull, NULL},
  23.                 result = {typeNull, NULL};
  24.     Size          actualSize;
  25.     DescType      returnedType;
  26.     DescType      reqType;
  27.     OSErr         err;
  28.     
  29.         // pick up the direct object, which is the object whose data is to be sized
  30.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  31.         
  32.         // now the get the type wanted - optional
  33.     reqType = typeChar;    // Default to char
  34.     (void)AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType, &returnedType,
  35.                                                 (Ptr)&reqType, sizeof(reqType), &actualSize);
  36.         
  37.     err = GotRequiredParams(theAppleEvent);
  38.     if (noErr != err) goto done;
  39.     
  40.     if (typeNull != directObj.descriptorType)
  41.         err = GetDataSizeDesc(&directObj, reqType, &result);
  42.     else
  43.         err = errAENoSuchObject;
  44.         
  45.     err = AddResultToReply(&result, reply, err);
  46.  
  47. done:    
  48.     if (directObj.dataHandle) 
  49.         AEDisposeDesc(&directObj);
  50.     if (result.dataHandle) 
  51.         AEDisposeDesc(&result);
  52.             
  53.     return(err);
  54. } // DoGetDataSize
  55.  
  56.  
  57. OSErr    GetDataSizeTextToken(TextToken* theToken, AEDesc* result)
  58. {
  59.     long    aSize;
  60.     OSErr    err;
  61.     
  62.     aSize = theToken->tokenLength;
  63.     
  64.     err = AECreateDesc(typeLongInteger, (Ptr)&aSize, sizeof(aSize), result);
  65.  
  66.     return(err);
  67. }
  68.  
  69. OSErr    GetDataSizeTextDesc(AEDesc* textDesc, AEDesc* result)
  70. {
  71.     TextToken        aTextToken;
  72.     Size            actualSize;
  73.     OSErr            err;
  74.  
  75.     if (typeMyText != textDesc->descriptorType)
  76.         return(errAETypeError);
  77.         
  78.     GetRawDataFromDescriptor(textDesc, (Ptr)&aTextToken, sizeof(aTextToken), &actualSize);
  79.  
  80.     err = GetDataSizeTextToken(&aTextToken, result);
  81.     
  82.     return(err);
  83. }
  84.  
  85. OSErr    GetDataSizeDesc(AEDesc* aDesc, DescType reqType, AEDesc* result)
  86. {
  87.     AEDesc        dataSizeDesc = {typeNull, NULL},
  88.                 textDesc = {typeNull, NULL},
  89.                 itemDesc = {typeNull, NULL},
  90.                 itemResult = {typeNull, NULL};
  91.     long        itemCount,
  92.                 index;
  93.     DescType    theAEKeyword;
  94.     OSErr        err;
  95.     
  96.     if (typeObjectSpecifier == aDesc->descriptorType)
  97.         err = AEResolve(aDesc, kAEIDoMinimum, &dataSizeDesc);
  98.     else
  99.         err = AEDuplicateDesc(aDesc, &dataSizeDesc);
  100.         
  101.     if (noErr != err) goto done;
  102.     
  103.     if (typeAEList == dataSizeDesc.descriptorType)
  104.     {
  105.         err = AECreateList(NULL, 0 , false, result);    // Result will also be a list of items
  106.         if (noErr != err) goto done;
  107.         err = AECountItems(&dataSizeDesc, &itemCount);
  108.         if (noErr != err) goto done;
  109.         
  110.         for (index = 1; index <= itemCount; index++)
  111.         {
  112.             err = AEGetNthDesc(&dataSizeDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  113.             if (noErr != err) goto done;
  114.             
  115.             err = GetDataSizeDesc(&itemDesc, reqType, &itemResult);    // Call recursively
  116.             if (noErr != err) goto done;
  117.             
  118.             err = AEPutDesc(result, 0, &itemResult);    // Add to our result list
  119.             if (noErr != err) goto done;
  120.  
  121.             if (itemDesc.dataHandle)
  122.                 AEDisposeDesc(&itemDesc);
  123.             if (itemResult.dataHandle)
  124.                 AEDisposeDesc(&itemResult);
  125.         }
  126.     }
  127.     else
  128.     {
  129.         switch (reqType)
  130.         {
  131.             case typeChar:
  132.                 err = AECoerceDesc(&dataSizeDesc, typeMyText, &textDesc);
  133.                 if (noErr != err) goto done;
  134.                 err = GetDataSizeTextDesc(&textDesc, result);
  135.                 break;
  136.                 
  137.             default:
  138.                 err = errAECantSupplyType;
  139.         }
  140.     }
  141.     
  142. done:
  143.     if (dataSizeDesc.dataHandle)
  144.         AEDisposeDesc(&dataSizeDesc);
  145.     if (textDesc.dataHandle)
  146.         AEDisposeDesc(&textDesc);
  147.     if (itemDesc.dataHandle)
  148.         AEDisposeDesc(&itemDesc);
  149.     if (itemResult.dataHandle)
  150.         AEDisposeDesc(&itemResult);
  151.     
  152.     return(err);
  153. }
  154.